home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / wp / write3_512.lha / REXX / Replace.wrx < prev    next >
Text File  |  1994-08-15  |  1KB  |  94 lines
  1. /*
  2.  * WRITE V3.848 © 1991-1994 by Tim Teulings
  3.  *
  4.  * Dieses Script öffnet einen Filerequester, in dem man verschiedene Files
  5.  * auswählen kann. Anschließen öffnet sich der GETFINDREPLACE-Requester,
  6.  * im welchem man dann ein Suchwort auswählen kann.
  7.  * Write sucht dann in den entsprechenden Files nach dem Suchwort und ersetzt
  8.  * alle gefundenen durch das Ersetzenwort.
  9.  *
  10.  */
  11.  
  12. IF ~show('P',"WRITE") THEN
  13. DO
  14.   say "Dieses Skrpit arbeitet nicht ohne dem Texteditor WRITE !"
  15.   EXIT 0
  16. END
  17.  
  18. ADDRESS "WRITE"
  19.  
  20. OPTIONS RESULTS
  21. SIGNAL ON SYNTAX /* Abfangen von Syntaxfehlern */
  22.  
  23. 'VERSIONCHECK 3848 "Replace.wrx"'
  24. IF RC~=0 THEN DO
  25.   exit 10
  26. END
  27.  
  28. ID = -1
  29.  
  30. CLEARLIST 0
  31. 'GETFILES 0 "" ""'
  32. IF RC~=0 THEN DO
  33.   EXIT
  34. END
  35.  
  36. LISTSIZE 0
  37. Size = RESULT
  38.  
  39. IF Size=0 THEN DO
  40.   EXIT
  41. END
  42.  
  43. 'NEWED "EMPTY.CONFIG"'
  44. ID = RESULT
  45. LOCKWINDOW ID
  46.  
  47. 'GETFINDREPLACE _FindString _ReplaceString {@REPLACE}'
  48. IF RC~=0 THEN DO
  49.   QUITED
  50.   EXIT
  51. END
  52.  
  53. LastLine = -1
  54.  
  55. DO x=1 TO Size
  56.  
  57.   GETLISTENTRY 0 x
  58.   IF RC=0 THEN DO
  59.     File = RESULT
  60.   END
  61.  
  62.   OPEN "(" || File || ")"
  63.   IF RC=0 THEN DO
  64.  
  65.     'REPLACE @CURSOR @CURSOR @EOT @EOT {@SILENT @ALL @NOREQ}'
  66.  
  67.     found = Result
  68.  
  69.     IF found >0 THEN DO
  70.       MESSAGEOK "(" || "Es wurde "||found||" mal\n$_FindString$\ndurch\n$_ReplaceString$\nin File\n" || File || "\nersetzt." || ")"
  71.       SAVE "(" || File || ")"
  72.     END
  73.  
  74.   END
  75.  
  76.   ID = -1
  77.  
  78. END
  79.  
  80. QUITED
  81.  
  82. EXIT
  83.  
  84. /********/
  85. /* Ende */
  86. /********/
  87.  
  88.  
  89. SYNTAX:
  90.  
  91. SAY "Leider trat ein Fehler auf... Zeile " SIGL ":" ERRORTEXT(RC)
  92. LOCKWINDOW 0
  93. EXIT
  94.